home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 501-525 / disk_514 / tlog / test.tlog < prev    next >
Text File  |  1992-05-06  |  1KB  |  62 lines
  1. /* simple AREXX test for TLog that prints the first and last records */
  2.  
  3. options results
  4. address 'tlog'
  5.  
  6. 'opendb'
  7. 'firstrec'
  8. say "First Record"
  9. say result
  10.  
  11.     /* the fields in a record are delineated with verticle bars '|' */
  12. parse var result dbdate '|' dbheart '|' dbdist '|' dbtime '|' dbweight '|' dbtemp '|' dbkey
  13.  
  14. say "First Record fields "
  15. say "date  "   dbdate
  16. say "heart "  dbheart
  17. say "dist  "   dbdist
  18. say "time  "   dbtime
  19. say "weight" dbweight
  20. say "temp  " dbtemp
  21. say "key   " dbkey
  22. currenttime
  23. say "time in seconds" result
  24. say " "
  25.  
  26.  
  27. 'lastrec'
  28. say "Last Record"
  29. say result
  30.  
  31.     /* the fields in a record are delineated with verticle bars '|' */
  32. parse var result dbdate '|' dbheart '|' dbdist '|' dbtime '|' dbweight '|' dbtemp '|' dbkey
  33.  
  34. say "Last Record fields "
  35. say "date  "   dbdate
  36. say "heart "  dbheart
  37. say "dist  "   dbdist
  38. say "time  "   dbtime
  39. say "weight" dbweight
  40. say "temp  " dbtemp
  41. say "key   " dbkey
  42. currenttime
  43. say "time in seconds" result
  44. say " "
  45.  
  46.  
  47. getdateformat
  48. oldformat = result
  49.  
  50. say "The various date Formats"
  51.  
  52. say "The original format " oldformat
  53.  
  54. do i = 1 to 7
  55.     dateformat i
  56.     currentdate
  57.     say result
  58. end
  59.  
  60. dateformat oldformat
  61.  
  62.